|
100
|
How can I change the background color for parts of the text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<bgcolor=FF0000>new</bgcolor> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
99
|
How can I change the foreground color for parts of the text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<fgcolor=FF0000>new</fgcolor> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
98
|
How can I show the node as strikeout
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<s>new</s> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
97
|
How can I show the node as underlined
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<u>new</u> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
96
|
How can I show the node as italic
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<i>new</i> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
95
|
How can I bold the node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "<b>new</b> caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
94
|
How can I change the node's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add("Child").Caption = "new caption"
End With
End Function
</SCRIPT>
</BODY>
|
|
93
|
How can I display hierarchical the child nodes so they are indented relative to their parents
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = -1
.PenLink = 0
.PenWidthLink = 3
.IndentSiblingX = 12
.IndentSiblingY = 12
.Root.Image = 0
With .Nodes
.Add("As <b>Tree</b>",,"1234").ArrangeSiblingNodesAs = 2
.Add "Sub 1","1234"
.Add "Sub 2","1234","456"
.Add "Item 1","456"
.Add("Item 2","456","78").Expanded = False
.Add "Item 2.1","78"
.Add "Item 2.2","78"
.Add "Item 3","456"
.Add "Sub 3","1234"
.Add "As <b>Default</b>",,"AA"
.Add "Item 1","AA"
.Add "Item 2","AA","BB"
.Add "Item 2.1","BB"
.Add "Item 2.2","BB"
.Add "Item 2.3","BB"
.Add "Item 3","AA"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
92
|
How can I display the child nodes as a tree, so they are indented relative to their parents
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.IndentSiblingY = 4
.HasButtons = -1
With .Root
.Image = 0
.ArrangeSiblingNodesAs = 2
End With
With .Nodes
.Add "Child 1",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234","456"
.Add "Item 1","456"
.Add("Item 2","456","78").Expanded = False
.Add "Item 2.1","78"
.Add "Item 2.2","78"
.Add "Item 3","456"
.Add "Sub 3","1234"
.Add "Child 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
91
|
How can I indent the child nodes relative to their parents
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.IndentChild = 32
.HasButtons = -1
.Root.Image = 0
With .Nodes
.Add("AsTree",,"1234").ArrangeSiblingNodesAs = 2
.Add "Sub 1","1234"
.Add "Sub 2","1234","456"
.Add "Item 1","456"
.Add("Item 2","456","78").Expanded = False
.Add "Item 2.1","78"
.Add "Item 2.2","78"
.Add "Item 3","456"
.Add "Sub 3","1234"
.Add "Child 2",,"AA"
.Add 1,"AA"
.Add 2,"AA","BB"
.Add "2.1","BB"
.Add "2.2","BB"
.Add 3,"AA"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
90
|
How can I increase the distance between nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.IndentSiblingY = 64
.Root.Image = 0
With .Nodes
.Add "<a1>Link 1</a>",,"1234"
.Add "Sub <a1>Link 1</a>","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "<a2>Link 2</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
89
|
How can I increase the distance between nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.IndentSiblingX = 64
.Root.Image = 0
With .Nodes
.Add "<a1>Link 1</a>",,"1234"
.Add "Sub <a1>Link 1</a>","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "<a2>Link 2</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
88
|
How can I add an anchor or a hyperlink
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Image = 0
With .Nodes
.Add "<a1>Link 1</a>",,"1234"
.Add "Sub <a1>Link 1</a>","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "<a2>Link 2</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
87
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.FormatAnchor(False) = "<u><fgcolor=880000> </fgcolor></u>"
.Root.Image = 0
With .Nodes
.Add "<a1>Link 1</a>",,"1234"
.Add "Sub <a1>Link 1</a>","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "<a2>Link 2</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
86
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.FormatAnchor(True) = "<u><fgcolor=FF0000> </fgcolor></u>"
.Root.Image = 0
With .Nodes
.Add "<a1>Link 1</a>",,"1234"
.Add "Sub <a1>Link 1</a>","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "<a2>Link 2</a>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
85
|
How can I save data in XML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
84
|
Can I load data from XML files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
83
|
How can I assign multiple icons to a node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add("Sub 1","1234").Caption = "<img>1</img> text <img>2</img> and so on<br>bla <b>bla</b> left<r><img>3</img>"
With .Add("Sub 2","1234")
.Caption = "<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>"
.FixedWidth = 124
.FixedHeight = 48
End With
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
82
|
How can I assign multiple pictures to a node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add "Child <b>1</b>",,"1234"
With .Add("Sub 1","1234")
.Caption = "<img>pic1</img> text <img>pic2</img>"
.FixedWidth = 108
.FixedHeight = 48
End With
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
81
|
How can I change the color of the line that links assistant nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.LinkAssistantColor = RGB(255,0,0)
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
80
|
How can I change the width of the line that links assistant nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.PenLinkAssistant = 0
.PenWidthLinkAssistant = 4
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
79
|
How can I change the style of the line that links assistant nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.PenLinkAssistant = 4
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
78
|
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Cursor(3) = "exHelp"
.HasButtons = -1
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
77
|
How do I change the shape of the cursor when the user clicks an drags the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Cursor(2) = "exHelp"
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
76
|
How do I change the shape of the cursor when it hovers a node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Cursor(1) = "exHelp"
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
75
|
How do I change the shape of the cursor when it hovers the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Cursor(0) = "exHelp"
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
74
|
How can I copy and paste the control's content to Microsoft Word for instance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = -1
.PenLink = 0
.PenWidthLink = 3
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
73
|
How can I copy and paste the control's content to Microsoft Word for instance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = -1
.ButtonsAlign = 18
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
72
|
How can I enable or disable expanding or collapsing a node when user double clicks it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ExpandOnDblClk = False
.HasButtons = -1
.ButtonsAlign = 18
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
How can I align the +/- expand or collapse buttons to the right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = -1
.ButtonsAlign = 18
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
70
|
Can I display the +/- expand or collapse buttons using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
With .VisualAppearance
.Add 11,"c:\exontrol\images\normal.ebn"
.Add 22,"c:\exontrol\images\pushed.ebn"
.Add 1,"CP:11 2 2 -2 -2"
.Add 2,"CP:22 2 2 -2 -2"
End With
.HasButtons = 4
.HasButtonsCustom(True) = 33554432
.HasButtonsCustom(False) = 16777216
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
69
|
How can I change the +/- expand or collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HasButtons = 4
.HasButtonsCustom(True) = 1
.HasButtonsCustom(False) = 2
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
How can I change the +/- expand or collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = 2
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
67
|
How can I display +/- expand or collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HasButtons = -1
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add("Child <b>1</b>",,"1234").Expanded = False
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
How do I show or hide the assistant nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ShowAssistants = True
With .Root
.Image = 0
.AddAssistant "Assistant 1"
.AddAssistant "Assistant 2"
End With
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
65
|
How do I scale or zoom the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BorderWidth = 18
.BorderHeight = 18
.ZoomWidthMode = 1
.ZoomHeightMode = 1
.ZoomWidth = 2
.ZoomHeight = 2
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
How do I scale or zoom the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BorderWidth = 18
.BorderHeight = 18
.ZoomWidthMode = 2
.ZoomHeightMode = 2
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
How can I ensure that the selected node is visible or fits the chart's area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.EnsureVisibleOnSelect = True
.ScrollOnEnsure = False
.BorderWidth = 18
.BorderHeight = 18
.ZoomWidthMode = 1
.ZoomHeightMode = 1
.ZoomWidth = 2
.ZoomHeight = 2
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Sub 3","1234"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
62
|
How do I avoid slow moving the chart when the user selects a new node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollByClick = False
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
How do I ensure that a node is visible or fits the chart's area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Child <b>2</b>"
End With
.EnsureVisibleNode "1234"
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
How do I change the root node, so it explore from a specified node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Sub 1","1234"
.Add "Sub 2","1234"
.Add "Child <b>2</b>"
End With
.ExploreFromNode = "1234"
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
How do I select a node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>",,"1234"
.Add "Child <b>2</b>"
End With
.SelectNode = "1234"
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
58
|
How do I get the node from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
57
|
How do I fix the height for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.FixedHeightNode = 32
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
How do I fix the width for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.FixedWidthNode = 128
.Root.Image = 0
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
How do I change the style of the link between nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.PenLink = 1
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
How do I change the color to link the nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.LinkColor = RGB(255,0,0)
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
How do I change the shape for selected node, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.SelColor = &H2000000
.SelectNode = "root"
.HideSelection = False
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
How do I change the color for selected node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.SelColor = RGB(0,0,255)
.SelectNode = "root"
.HideSelection = False
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
51
|
How do I hide the node's shadow
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ShadowNode = False
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
How do I change the pen to draw the border for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.PenBorderNode = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
49
|
How do I change the shape of the border for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.Background(0) = &H2000000
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
How do I change the shape of the border for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.DrawRoundNode = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
How do I change the foreground color for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ForeColorNode = RGB(255,0,0)
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
How do I change the background color for all nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BackColorNode = RGB(255,0,0)
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
45
|
How do I change the key of the root
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Key = "myKey"
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
How do I change the caption of the root
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Caption = "new<br>root"
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
How do I access the root node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Root.Caption = "new<br>root"
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
How do I access the nodes collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
With .Nodes
.Add "Child <b>1</b>"
.Add "Child <b>2</b>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
41
|
How do I refresh the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Nodes.Add "Child <b>1</b>"
.Nodes.Add "Child <b>2</b>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
40
|
How do I prevent painting while several changes are performed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BeginUpdate
.Nodes.Add "Child <b>1</b>"
.Nodes.Add "Child <b>2</b>"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
39
|
How do I indent the full chart to the right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BorderWidth = 8
.BorderHeight = 8
End With
End Function
</SCRIPT>
</BODY>
|
|
38
|
How can I change the node's border/frame, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(0) = &H1000000
.Nodes.Add "Child <b>1</b>"
.Nodes.Add "Child <b>2</b>"
End With
End Function
</SCRIPT>
</BODY>
|
|
37
|
How can still display the selected node when the control loses the focus
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
36
|
How do I disable or enable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Enabled = False
End With
End Function
</SCRIPT>
</BODY>
|
|
35
|
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
.Background(388) = &H1000000
.Background(389) = &H2000000
.Background(391) = &H3000000
.Background(260) = &H1000000
.Background(261) = &H2000000
.Background(263) = &H3000000
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
.Background(388) = &H1000000
.Background(389) = &H2000000
.Background(391) = &H3000000
.ScrollThumbSize(1) = 96
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
.Background(324) = &H1000000
.Background(325) = &H2000000
.Background(327) = &H3000000
.Background(404) = RGB(240,240,240)
.Background(276) = RGB(240,240,240)
.Background(3) = RGB(240,240,240)
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
Can I change the forecolor for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(66) = RGB(255,0,0)
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
Can I change the background color for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(65) = RGB(255,0,0)
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
Can I change the default border of the tooltip, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(64) = &H1000000
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
29
|
How do I call your x-script language
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With
End Function
</SCRIPT>
</BODY>
|
|
28
|
How do I call your x-script language
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Template = "BackColor = RGB(255,0,0)"
End With
End Function
</SCRIPT>
</BODY>
|
|
27
|
Can I change the font for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 1
With .ToolTipFont
.Name = "Tahoma"
.Size = 14
End With
.ToolTipWidth = 364
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
26
|
I've seen that the width of the tooltip is variable. Can I make it larger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipWidth = 328
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
How do I let the tooltip being displayed longer
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipPopDelay = 10000
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 0
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
How do I show the tooltip quicker
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ToolTipDelay = 1
.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
Can I change the order of the buttons in the scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollOrderParts(1) = "t,l,r"
.ScrollOrderParts(0) = "t,l,r"
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
21
|
The thumb size seems to be very small. Can I make it bigger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollThumbSize(1) = 164
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
20
|
How do I enlarge or change the size of the control's scrollbars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollHeight = 18
.ScrollWidth = 18
.ScrollButtonWidth = 18
.ScrollButtonHeight = 18
.FixedWidthNode = 320
.FixedHeightNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
19
|
How can I display my text on the scroll bar, using a different font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollPartCaption(1,256) = "This is just a text"
.ScrollFont(1).Size = 12
.ScrollThumbSize(1) = 128
.ScrollHeight = 24
.ScrollPartCaption(1,256) = "This is <s><font Tahoma;12> just </font></s> text"
.ScrollHeight = 20
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
18
|
How can I display my text on the scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollPartCaption(1,256) = "this is just a text"
.ScrollThumbSize(1) = 96
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
17
|
How do I assign a tooltip to a scrollbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollToolTip(1) = "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar"
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
16
|
How do I assign an icon to the button in the scrollbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ScrollPartVisible(1,32768) = True
.ScrollPartCaption(1,32768) = "<img>1</img>"
.ScrollHeight = 18
.ScrollButtonWidth = 18
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
I need to add a button in the scroll bar. Is this possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollPartVisible(1,32768) = True
.ScrollPartCaption(1,32768) = "1"
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
Can I display an additional buttons in the scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ScrollPartVisible(1,32768) = True
.ScrollPartVisible(1,16384) = True
.ScrollPartVisible(1,1) = True
.ScrollPartVisible(1,2) = True
.FixedWidthNode = 320
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
How do I change the control's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.ForeColor = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.BackColor = RGB(200,200,200)
End With
End Function
</SCRIPT>
</BODY>
|
|
11
|
How can I change the control's font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Font.Name = "Verdana"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
10
|
How do I put a picture on the center of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 17
End With
End Function
</SCRIPT>
</BODY>
|
|
9
|
How do I resize/stretch a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 49
End With
End Function
</SCRIPT>
</BODY>
|
|
8
|
How do I put a picture on the control's center right bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 34
End With
End Function
</SCRIPT>
</BODY>
|
|
7
|
How do I put a picture on the control's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 32
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
How do I put a picture on the control's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
5
|
How do I put a picture on the control's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
4
|
How do I put a picture on the control's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
How do I change the control's border, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = 16777216 ' &H1000000
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I remove the control's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ChartView1
.Appearance = 0
End With
End Function
</SCRIPT>
</BODY>
|